unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzGroupBar;

type
  TForm1 = class(TForm)
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    procedure RzGroup1Items0Click(Sender: TObject);
    procedure RzGroup1Items1Click(Sender: TObject);
    procedure RzGroup1Items2Click(Sender: TObject);
    procedure RzGroup1Items3Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation
uses
  Form_ListStud,Form_ListCourse,Form_ListGrade,Form_ListTest;

{$R *.dfm}

procedure TForm1.RzGroup1Items0Click(Sender: TObject);
begin
  ViewListStud;
end;

procedure TForm1.RzGroup1Items1Click(Sender: TObject);
begin
  ViewListCourse;
end;

procedure TForm1.RzGroup1Items2Click(Sender: TObject);
begin
   ViewListTest;
end;

procedure TForm1.RzGroup1Items3Click(Sender: TObject);
begin
  ViewListGrade;
end;

end.
